﻿Public Class PRINCIPAL

    Private Sub ATRASOSToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ATRASOSToolStripMenuItem.Click
        ATRASOS.MdiParent = Me
        ATRASOS.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub DIASDEATRASOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DIASDEATRASOToolStripMenuItem.Click
        AJUSTE.MdiParent = Me
        AJUSTE.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub CARTAACEITEToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CARTAACEITEToolStripMenuItem.Click
        CARTAACEITE.MdiParent = Me
        CARTAACEITE.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub PROTOCOLOToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROTOCOLOToolStripMenuItem.Click
        PROTOCOLO.MdiParent = Me
        PROTOCOLO.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub SAIRToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAIRToolStripMenuItem.Click
        If MsgBox("DESEJA REALMENTE SAIR", MsgBoxStyle.YesNo, "ATENÇÃO") = DialogResult.Yes Then
            Me.Close()
        End If
    End Sub
    Private Sub USUÁRIOSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles USUÁRIOSToolStripMenuItem.Click
        USUARIOS.MdiParent = Me
        USUARIOS.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub PRINCIPAL_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        LoginForm3.Close()
    End Sub
    Private Sub PRINCIPAL_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            ToolStripStatusLabel4.Text = "Versão " & My.Application.Deployment.CurrentVersion.ToString()
        Catch ex As Exception
            MsgBox("Sistema não instalado")
        End Try
    End Sub
    Private Sub SOLICITAÇÃODEBORDERÔToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SOLICITAÇÃODEBORDERÔToolStripMenuItem.Click
        SOLICITACAO.MdiParent = Me
        SOLICITACAO.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub ALÍNEASToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ALÍNEASToolStripMenuItem.Click
        ALINEAS.MdiParent = Me
        ALINEAS.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub LIMITESToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LIMITESToolStripMenuItem.Click
        LIMITES.MdiParent = Me
        LIMITES.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub DOCUMENTAÇÃOCEDENTESToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DOCUMENTAÇÃOCEDENTESToolStripMenuItem.Click
        DOCUMENTACAO.MdiParent = Me
        DOCUMENTACAO.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub LIQUIDEZToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LIQUIDEZToolStripMenuItem.Click
        LIQUIDEZ.MdiParent = Me
        LIQUIDEZ.Show()
        WebBrowser1.Visible = False
    End Sub
    Private Sub VISUALIZARLOGSToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VISUALIZARLOGSToolStripMenuItem.Click
        LOGS.MdiParent = Me
        LOGS.Show()
    End Sub
End Class
